(make_fixnum_or_float): New macro.

diff --git a/src/lisp.h b/src/lisp.h
index 818b6e1163f341f1e010952ce6fe69d8b1df9319..e51f2f64e5696af168b1b25e8c434fbbf6d6373d 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3086,3 +3086,9 @@ extern Lisp_Object Vdirectory_sep_char;
 #endif
 #define min(a, b)      ((a) < (b) ? (a) : (b))
 #define max(a, b)      ((a) > (b) ? (a) : (b))
+
+/* Return a fixnum or float, depending on whether VAL fits in a Lisp
+   fixnum.  */
+
+#define make_fixnum_or_float(val) \
+   (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val))